Imports System.Data.OleDb
Imports DTO
Imports DAO
Public Class ThamSoBUS
    Public Function LayBang() As DataTable
        Dim dt As DataTable
        Dim tsDao As New ThamSoDAO()
        dt = tsDao.LayBang()
        Return dt
    End Function
    Public Function LayDanhSach() As IList
        Dim ds As IList
        Dim tsDao As New ThamSoDAO()
        ds = tsDao.LayDanhSach()
        Return ds
    End Function
    Public Sub CapNhatBang(ByVal dt As DataTable)
        Dim tsDao As New ThamSoDAO()
        tsDao.CapNhatBang(dt)
    End Sub
    Public Sub SuaTiLePhuThuBUS(ByVal dr As DataRow)
        Dim tsDao As New ThamSoDAO()
        tsDao.SuaTiLePhuThu(dr)
    End Sub
End Class
